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MODULE setdir  ( 

IDENT = 'v04-000" 


ADDRESSING_MODE (EXTERNAL=GENERAL, 
’ NONE XTERNAL=LONG, RELATIVE) 
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BEGIN 
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if 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

is ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCOR ITH THE TERMS CENSE AND WITH THE 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTMER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER P . NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 

is TRANSFERRED. 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

is CORPORATION. 

ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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lee 
$e : FACILITY: Set Directory Command 
36 ABSTRACT: 
38 This module processes the Set Directory command. 
9040 ENVIRONMENT : 
0043 Vax native, privileged user mode 
a 
5 ! 
nee : AUTHOR: Gerry Smith CREATION DATE: 3-Nov-1981 
i MODIFIED BY: 


v03-007 AEWO001 Anne E. Warner 66-Mar-1984 
Add error messages to prevent the use of search Lists 
with devices for directories, 
FILSPCSRCH - File specification contains a searchlist 
LST - yoneane does not support search lists 
Both are defined in SHRMSG.MSS. 
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v03-006 GASO170 Gerry Smith 23-Aug-1983 


SETDIR 14-40 ,-1984 :59:34  YAK=11 BLisg-32_v4.0274 
Sbccoc0 e-8eeioke Sidosae | eet et sesse ele b55e9 


; 28 0038 1! Instead of simply doing an I0$_ACCESS to get the 

§ 9 059 1! oe beng s header, perform an actual open, by 

:; 60 01! issuing an 108_ ACCESS OR 1OSM ACCESS, to insure 

3 o : 1 ’ proper file = by the xaQP, 

; 8 $08 1/ V03-005 GAS0116 ry Smith 6-Apr-1983 
3 $ se : : Use the common walt ier routines. 

; 66 B98 1/ v03-004 gasoiie Gerry Smith 29-Mar-1983 
> OF 0067 1! Fix for the new CLI ubertoet as well as the new 

3 $8 8208 ! command dispatcher. 

: a $090 ii v03-003 GAS0091 Gerry Smith 19=0c t-1982 
: a! Bee4 ! : Change input request ‘tor new CLD syntax. 

: 7 bors 1 i v03-002 age + Gerry Smith - 18-Dec-1981 
; «674 074 1! Use shared message file, and lower fatal messages to 
3 ie oot : : simple error messages. 

: 77 $077 1! v03-001 GAS0024 Gerry Smith 14-Dec-1981 
: me B78 ; } Fix /LOG logic 

: 80 0080 1: 

[> a 0081 1 !e« 
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SETDIR.B32; 
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3 7 5 1 FORWARD ROUTINE 

5 § 1 set$directory : NOVALUE, ! Main routine for directory 

; 1 get_quals ' Get qualifiers and values 

: 8 1 set_attributes, i Routine to set directory attributes 
: 4 O58 } et_dir; ! Routine to get each directory 

; 38 091 1 

; 9% O36 1 exten, ROUTINE 

; 095 1 cliSpresent, ! Determine presence of qualifier 
: 9% 0% 1 cliSget value, i Get velue of qualifier 

: 97 095 1 LibSqual_file_parse, ' Get common qualifiers 

: gee | UREN Eecceancmeteh | RSSeine‘torgst fest etractorge” 
; e oo u x 

; 100 0098 1 check_privilege : NOVALUE, ' Routine to oheck for privilege 
3; 101 0099 1 search_error, ! Where to go if file search fails 
3 Ie 0100 1 file_error, ! Where to go if file error occurs 
: ie Hie PNRRparse [Soke hed 
3 105 $108 1 LibScvt_dtb, i Convert decimal to number 

; 1s He: : sys$fao; ! Formatted ASCII output 

: 108 0106 1! 

: 109 3424 1 ! Declare external data 

; 110 108 1! 

s 3 0109 1 EXTERNAL 

3 \N¢ git9 : eqctTestlags : BITVECTOR(E32), H seme flags word 

3 uic_value, ' Owner 

: 1M lig 1 grote, | UIE" group number 

3 member, ! member number 

5 11g bite : , vrsn_value, ! Version Limit 

: 118 0116 1 ! RMS structures 

3: 6119 0117 1! 

: 120 0118 #1 file_result : pag bas poo maxrss ,BYTEJ ! Resultant name string 

s tel 0119 #1 file expanded : VECTOR nam$c_maxrss,BYTE), ; Expanded name string 

3 \¢¢ 0120 1! file rlf is in own section because it not externally defined. 

: 12 0121 1 fiTe_nam : LOCK{nam$c_bln], ! File name block 

3 ig 4 $ ! file_fab : SBBLOCK[fab$c_binj; ' File FAB 

: 126 126 1! 

3; 127 125 1 ! Error messages 

; 128 1 $ 1! 

: 129 1 1 EXTERIAL LITERAL 

TRB PHBE totmar, foe se coe ea 

3 quipro, ' Qu 

»-§ ¢ 130 1 set$~facility, ! Facility code . 

3 (95 131 1 set$_closeerr, { Could not close file 

, § 1 § 4 set$_entered, ' File entered in a directory 

3: 135 1 1 set$_enterr, ! Error entering file 

; 4 183} Setcmocatre™” PA to Ae 

Z set$_notdir ! a 

P18 oo Ge fo sae PE ine 

3 set$_readerr, ' Cou 

: 140 1 1 set$_remerr, ' Could not remove file 

3: 6141 1 1 set$_ removed, ' Directory entry removed 

3 196 19 ' set$_writeerr; ! Could not write to file 
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if 
} 
: TPARSE table for directories 
SINIT_STATE (dir_state,dir_keys); 


SSTATE (dirstart, 
(tpa$_octal,,,,group)); 


SSTATE (, 
he 
SSTATE (, 

(tpa$_octal,tpa$_exit,,,member)); 


PSECT OWN = SOWNS; 
PSECT GLOBAL = $GLOBAL$; 
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! Get the group number 


! Get rid of the comma 


! Get the member number 
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GLOBAL ROUTINE set$directory : NOVALUE = 
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Functional description 


s is the main control module for SET DIRECTORY. ef ca 
List ite SCAN to perform the necessary functions on the d 
specified in the call to SET. 


2 —) 4 5 
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lls 
irectory 
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Calling sequence 

CALL set$directory() 
Input parameters 

none 


Output parameters 
none 
Implicit outputs 
none 

Routine value 


none 


Side effects 
none 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
LOCAL 
status 
dir deat : SBBLOCKCdsc$c_s_bin]; 


' 
: Check that the image is running with appropriate privilege. 


check_privilege(); 
‘ 
: . Get the common qualifiers. 


cosmeal = LibSqual_file_parse(ZREF (LibSm_caqf_exclude OR 
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ib$m_cqf_before OR 
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Lib 
Libs 
8 LibSm_caf_created OR 
9 LibSm_cqf_modified OR 
40 LibSm_cqf_expired OR 
45 41 Lib$Sm_cqf_backup OR 
4 ri} Lib$m_cqf_confirm OR 
4 4 LibSm_caf_byowner), 
48 44 context); 
49 45 If NOT .status 
29 og THEN (SIGNAL(.status); RETURN); 
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wr 
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' 
: Get the command qualifiers. 


NOT get_quals() 
ETURAS 


1 
1b-se “19 759:34 AX-11 Bliss-32 V4.0-74 
127388-1 382 19:39:06 YetiuTL.sRe SETDIR.B32; 


For each directory specified, find the directory and perform the 


IF 

THEN RETURA; 
1 

i 

i 

i 


operations requested. 


Sinit_dyndesc(dir_desc); 
file fablfab$i_ctx] = false; 


WHILE get_dir(dir_desc) 


BEGIN 
Lib$file_scan( 
file_fab 
set_attributes, 
search_error) 
END; 
RETURN; 
END; 


45F4 
00000000* 
042¢ 
554 
00000000* 
FFFF 


! Make the descriptor dynamic. 
! Initialize for get_dir routine 


' For each directory found 

' Use this fab 

! Go here if directory found 
! Or here if error 


TITLE SETODIR 
-IDENT \V04-000\ 


-PSECT _LIBSSTATES,NOWRT, SHR, PIC,1 
00000 DIR_STATE:: 

.BLKB 
00000 DIRSTART: 


-—BLKB 0 

00000 ; TPASTYPE 

U.2: ~ WORD 17908 
00002 ; TPASADDR 

U.3: -LONG <<GROUP-U.3>-4> 
00006 ; TPASTYPE 

U.4: - WORD 1068 
00008 ; TPASTYPE 

U.5: - WORD 22004 
OOOOA ; TPASADDR 

U.6: ~LONG <<MEMBER-U.6>-4> 
QOOOE ; TPASTARGET 

U.?7: «WORD -1 


-PSECT _LIBSKEYOS,NOWRT, SHR, PIC,1 
00000 DIR_KEYS:: 


BLKB (OO 
00000 ; TPASKEYO 
U.1: -BLKB 0 


-PSECT SOWNS,NOEXE ,2 
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90000000 00040 «LONG 
00000000 00044 «LONG 
00000000 00048 - LONG 
00000000 0004C - LONG 
00000000 00050 «LONG 
00000000 00054 - LONG 
000000004 00058 - LONG 
00060 CONTEXT: .BLKB 


CO 
™~m 
ws 


VRSR_VALUE 
feSULT f "Ete. EXPANDED 
TMA i*® QUIPRO 
SET$_CLOSEERR 
ETS ENTERR 
SETS _NOTDIR 
ETS _READERR 
TS_ D 


ANNNMNMHE BWNAKVE VHKK KH LOCCCOCOCOCOCOCOOOCOOCOCOOOCOOOOOOOOOOoOOoO ON 


.PSECT $CODES,NOWRT,2 
ENTRY oe Te poet rent. Save nothing : 0191 
#0, CHECK_PRIVILEGE : 0230. 


1 
seI0)8, yE-sep-1964 00:59:54 yaxet Blisg=32 v4. 0-742 


00000000" ff f Q 0 PUSHAB CONTEXT 
06 AE FF F 3¢ 0001 MOVZWL #1) 4(SP) 
06 AE OF 1 PUSHAB 
000000006 90 Fe 1 CALLS #2, "(1880 AL_F ILE_PARSE 
A EB 000 BLBS STATUS, 1 
DD 000 PUSHL STATUS. 
000000006 00 01 FB 90 t CALLS #1, LIBSSIGNAL 
00000000v EF 0 FB OOOCF 18 CALLS 40, ET_QUALS 
9 0 €E9 000 BLBC 
04 AE 020E0000 8F D0 00039 MOVL  #34471936, DIR_DESC 
AE D4 9041 CLRL  DIR_DESC+4 
000000006 00 04 44 CLAL FILE FAB+24 
04 AE 9F O004A 28: PUSHAB DIR_DESC 
00000000v EF 1 FB 9004p CALLS #1, GET_DIR 
18 0 9 0054 LBC —sié«éwRO. 38 
000000006 00 9F 00057 PUSHAB SEARCH _ERRO 
00000000V EF 9F 9005p PUSHAB SET ATTRIBUTES 
000000006 00 9F 9006 PUSHAB FUL FAB 
000000006 00 03 FB 00069 CALLS . CIBSFILE_SCAN 
DB 11 00070 BRB 2$ 
04 00072 3$ RET 


|; Routine Size: 115 bytes, Routine Base: S$CODE$ + 0000 
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, 4 
16-Sep-1 759:34 AX-11 Bliss-32 V4.0-<74 
107860-1 382 99:39:06 CLIUIL SREISETDIR 830+1 
ROUTINE get_quals = 
'ee 
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i This routine interrogates the CLI for qualifiers and values. If an 
ecret occurs, it is signaled and control is returned with a value of 


BEGIN 
LOCAL 

status, 

desc : SBBLOCK(dsc$c_s_bin); ! General descriptor 
Sinit_dyndesc (desc); ! Make it dynamic 


: Get the simple flags first. 
setfile$flags(qual_log] = cli$present(ZASCID ‘LOG"); 


; /OWNER_UIC 
if cli$present(ZASCID "OWNER_UIC') 
THEN 


BEGIN ; 
setfile$flags(qual_owner] = 1; ! If present, set bit 
If no value on /OWNER_UIC, then call GETJPI to get this process's UIC. 
Ay cli$get_value(ZASCID ‘OWNER_UIC’, desc) 

BEGIN 

LOCAL 

iosb : VECTOR(4, WORD]; tas 
status = $GETJPIW(ITMLST = UPLIT(WORD(4, jpi$_uic), 
yic_value, 


2 


10SB = iosb); 
IF status 
THEN status = .iosb(0]; 
IF NOT .status 
THEN 


BEGIN 
SIGNAL(.status); 
A false; 


END 
' 
; Otherwise, assume a real UIC. Parse the string. 
ELSE 


IF NOT (status = parse_uvic(desc, uic_value)) 
THEN 
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GIN 
TUR ms (gers syntax, 1, desc); 


BE 
SIGN 
R URN false; 


] 
E 
END 
END; 
END; 
i Now for the version Limit. 
if cl iSpresent(ZASCID *"VERSION_LIMIT*) 
ENBEGIN 
vrsn vetue 2.847677 Lvrend = 1; ! Show that /VERSION specified 


vrsn_val ' Set to the default 
F-ctisget. value(ZASCID "VERSION_LIMIT', desc) 


BEGIN 

IF NOT Lib$Scvt_dtb(. “Gooch eectu.. Longen 
-descldsc$a_ “pointer, 
vrsn_value) 


BEGIN 
SIGNAL (set$_syntax, 1, desc); 
Ab N false; 


l ss 0 
rsn_value GTR 65535 
N (SIGNAL (set$_ valerr); RETURN false); 
END; 
RETURN true; 
END; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


00 47 4F 4C 00000 P.AAB: .ASCII \LOG\<0> 
010E0003 00004 P.AAA: .LONG 17694723 
ey 0000° 944 ADDRESS P.AAB 
43 49 55 SF 52 45 4€ 4F QOO0C P.AAD: .ASCII \OWNER_UIC\<0><0><0> 
4 009 Bete P.AAC: .LONG 17694729 
0000000" 1¢ -ADDRESS P.AAD 
435 49 55 SF 52 45 4€ 4F 00020 P.AAF: .ASCII 176947 yt vee 
10E0009 O002C P.AAE: .LONG 1 ore 
sey 0000° 000 AD 
ObG 0034 P.AAG: .WO “77 
"9890 st 00 — b1c VALUE 
08000900... 05 36 BS 
4C SF GE 4F ones P.AAIL: ASCII \WERSION_LIMIT\<0><0 
190000 $082 P.AAH: .LONG 17694733 


0060000" - ADDRE AA 
4C SF GE 4F 49 53 52 4 38 tS P.AAK: .ASCII \VERSION_LIMIT\<0><0 
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TDIR.B32; 
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CLIUTL.SRC SETDIR 


B32; 
10E000D 0006C P.AAJ: .LONG 176946733 
tittdit 0095 “ADDRESS P.AAK 
-EXTRN SYSSGETJPIW 
-PSECT $CODES$,NOWRT,2 
OOFC 00000 GET_QUALS: 
-WORD Save R2,R3,R4,R5,R6,R7 
7 9000 006 0 9E 0000 VAB  LIBSSIGNAL, R 
§ 00000006 9E 0000 MOVAB (CLISGET vacuE R6 
4 G GE oi MOVAB VRSN_VA ert 
4 G 9€ 0001 MOVAB SETFILE FLAGS RG 
3 900000006 3E 00016 MOVAB CLISPRESENT, R3 
7 na fe b05¢ SUBL? wie 
08 AE 020€0000 af 00 00 F MOVL AseL71936, DESC 
a5 DD 0003A PUSHL gst 
63 01 FB 003¢ CALLS #1, CLISPRESENT 
02 50 FO 0003F INSV RO. #2, #1, SETFILESFLAGS 
16 A2 OF 00044 PUSHAB P. 
63 01 FB 0047 CALLS #1, CLISPRESENT 
42 50 004A BLBC —E._s«&RO, 
64 08 88 0004D BISB2 #8, SETFILESFLAGS 
08 AE 9F 00050 PUSHAB DESC 
28 Ad 9F 00053 PUSHAB P.AAE 
66 0 FB 0056 CALLS 3, CLISGET_VALUE 
20 5 E 90059 LBS =—s-« RO, -2$ 
7E 7¢ 0005¢ CLRQ = = §P) 
08 AE 9F 0005 PUSHAB 10SB 
30 Ad OF 90061 PUSHAB P.AAG 
7E 7C 00064 CLROQ (SP) 
re D4 00066 CLRL 
000000006 00 0 FB 00068 CALLS ” PSYSSGETUPIW 
06 50 : 0006F BLBC STATUS, 1$ 
50 6f C 90072 MOVZWL 10sB. STATUS 
17 50 £8 0007 BLBS STATUS, 3$ 
50 0D 00078 1$: PUSHL STATUS. 
67 11 OO07A BRB $ 
000000006 00 9 o0ee 2$: PUSHAB UIC_VALUE 
000000006 00 02 FB 000 CALLS PARSE_UIC 
0 50 €9 99 c BLBC sfATU us, 48 
50 A2 SF OOOBF 3S: PUSHAB P.AAH 
3 gi FB 90092 CALLS #1, CLISPRESENT 
0 0 009 BLBC 
64 10 88 00098 BISB2 By ETFILESFLAGS 
65 7FFE Hi : o0i8 mOVZWL ter, VRSN_VALUE 
68 Ad 99F OOOA PUSH PAA 
$6 Q FB 00 Ag CALLS ~ ELISGET VALUE 
C E A LBC R , 8s 
55 DD OOOAC SHL  R 
19 AE 0D OAE PUSHL  DESC+4 
7E 1 AE C 0008 MOVZWL p SC, -(SP) 
000000006 00 03 FB 000B5 CALLS , LIBSCVT_DTB 


0272. 


— - — a — 


1 
TOIR tose 1984 00:59:34 AX=-11 Bliss-32 V4.0-74 
yOe-000 1 7350-1382 19:38:06 CLIUTL.SRC Seto iR03004 
10 50 £8 BC BLBS RO, 5$ 
oA ee Fie Bi 
007710FA F OD ef PUSHL @ 003120 
67 3 ‘o +. Hs +e LIBSSIGNAL 
50 2 BO O00cF Ss MOVL § VRSN_VALUE, RO 
9 Oe BLSS 
OOOOFFFF  8F 0 D1 CMPL RO, #65535 
B 15 dB BLEQ 
007711EA F DD 00 4 g$: PUSHL #7803370 
67 } fo 8 3 $: = - LIBSSIGNAL 
50 1 BO OOE8 8$: MOV. #1, RO 
4 Q0O0EB RET 
50 04 OOOEC 9$ CLRL RO 
04 OOOEE RET 


; Routine Size: 239 bytes, Routine Base: $CODE$ + 0073 


nn a a ee 


1 
1b-se 1984 00:59:34 AX-11 Bliss-32 V4.0-74 
1 30071382 99 :3o;06 CLIUTL- SAC Seip IR 63004 
ROUTINE set_attributes (fab) = 


‘ 
' This HY the routine that accesses the directory and sets the 

: spect? ed attributes. If an error occurs while attempting to set 

! the attributes, a message telling the user is issued, and any other 
directories are processed. 

lee 


BEGIN 


fab : REF SBBLOCK; 


LOCAL 
= : BLOCKVECTOR(3,8,BYTE), 


! Define the fab 


' Attribute control block 
! Pointer to attribute block 
' Status return 
! Channel number 
! General descriptor 


{ : wORD 
: see.ocktdsc$c_s bin} 
CKCdsc$c_s_bln) ! Descriptor for directory 
on nam$c_maxrés BYTE), ! String to build directory 
OCcK(f Sf o§*tdete , ! A FIB for the Q10 


: Leck ! The file header 
jiosb : VECTOR(E4,WORDJ; ! 1/0 status block 


Arun 


ND 
recattr = header(fh2$w_recattr] : SBBLOCKCatr$s_recattr], 
nam = .fab(fab$i_nam) : SBBLOCK; ! Define the name block 


IF .setfile$flagsCqual_quit] 
THEN RETURN true; 


COOOCCOCSCSCOCOOCOCCOCOOCOCOOOCOOCOCOOOOOOOoOOo 


WIWAWAWAA AAA 


‘ 
Build a descriptor to point to the directory. 


CHSMOVE (.nam{nam$b_rslI, 
-nam(nam$l_rsej, 


2ccsc 


! Move this many characters 
!' From the nam 

tring); ! To the temp string 
: e 
' 


dir_desc dsc$s_p inter] = string; Point to the string 
dir_desc dsc$w_length) = .nam{(nam$b_rsl); Fill in the size 
Move the final bracket over, to get the name of the final directory 


stringl.nam(nam$b_dev) 
+ ,nam(nam$b_dir] 
+ .nam[nam$b_name]] = .stringl.nam(nam$b_ dev] 
+ ,nam(nam$b_dir] 


SELESRENLSSSLSAEANLSSES 
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RERRERKLEL 


stringt nentngnte dev 
¢ ,nam([nam$b_dir]) - 1) = *.* ; _! Replace bracket with dot 
dir_desc(dsc$w_length) = .nam{(nam$b_ dev) 

+ ,nam(nam$6_dir] 

+ ,naminam$b_name) + 1; ! Update string length 


i If the directory looks Like (000000.something], get rid of the leading 


| 
| 
| 


ek a ns a 


COONO VE wt -"O 


RRERRRKEK 
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K 1 
16-Sep-1984 2:59:34 AxX-11 Bliss<-32 V4.0-74 
1ersee= hob P8ibaiog | eet Oke SSE YR 85509 
; zeroes and dot. 


if NOT CHSFAIL(status = CHSF IND_SUB( .dir_descEdsc$u_ Length] 
.dir_desc dsc$a_pointerd, 


UPLIT(*000000"))) 


BEGIN 
CHSMOVE(.dir desc lgscSu_lengthd - (.status + 7 - .dir_desc(dsc$a_pointer]), 
-status + 7, 


status); 
dir descldsc$w_ length] = .dir_desc(dsc$w_length] - 7; 


' 
: Check to see if this directory file matches the requested qualifiers 


Status = LibSqual_file_match(context, ! Call the common qualifier routine 
fab, , ! fab for directory 
ZASCID ‘Modi fy 'aS? (NJ: ', 
ZREF (dir_desc)); 
If NOT .status ! If the status is false, check 
HEN what kind of “error” 
IF .status EQL Lib$S_filfaimat i If no match, return 
THEN RETURN true 
itd IF .status EQ. Lib$_quipro ! If quit-right now, 
BEGIN 
setfile$flags(qual_quit] = 1; ! set a flag 
RETURN true; ! and leave 
! For any other error, 
EGIN 
SIGNAL(. status); ! signal it and 
3 a true; ! go away 
END; 


] 
: Assign a channel to the file's device 


desc(dsc$w_length] = .nam(nam$b_dev]; |! Set up the descriptor 
desc(dsc$a_pointer) = -namLnam$T_dev); to point to the device name 


If NOT (status = SASSIGN( 
DEVNAM = desc 
CHAN = channe()) 


THEN 
BEGIN 
file_error( set$_openin 
status,. fab); ' Tell user why the assign failed 
a true; ! And continue with other files 


# 
g> 
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MEAN 0 OOWO UNE WN OOOO Ew 
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1$-se0-1964 00:59:54 yARoH1 BLisg=52 vé.0-74 


7 
7 ‘ 
: Access the directory, reading its header 
| dsc$w_length] = “ee pn ! Re-use descriptor to point to FIB 
descldsc$a_pointer) = fib; 
CHSFILL(O, fibSc_extdata, fib); ! Zero out the FIB 
fibCfibSt_acctl] « tibSm_write OR ! Set up the FIB 
fi “noread OR 
fibSm_nowr ite; 
fibCfibSw_fid_n = .nam(nam$w_fid_num ! Put in the file id 
9 tiblfib$w_fid- seq -naminam$w_fid_ “seal: 
35 fibltibSwofidorvn] = .naminam$w_fidorvn 
94 atr(O,atr$w_type) = atr$c_header; ! Get the file header 
95 ote ate. size] = ease? header; 
atr r$l_ addr 5 header; 
3 atr( 3.0 15° 63"2 
39 status = $Q]0W( CHAN = : Access | the file, reading 
FUNC = 6s mac eess OR IOSM_ACCESS, ! the file header 
1 10S8 = iosb, 
§ Pl = desc, 
P5 = atr); 
If .status THEN status = .iosb(0); 
5 If NOT .status ! If there was an error, 
08 THEN file_error(set$_readerr,.status,.fab) ! tell the user what it was 
0 ELSE 
oS BEGIN 
6 i Check a” St see that this is a directory file. This check is only good for 
: an ODS2 volume. 


If . » neodor( (hese piruc lev’ EQL ; 
7 header(Th2$v_directory 


PWT weal altel al ah ah ah ah ah db ah ah ab ah ah ab Ab ih Ab Ab db ah ah Ab Ab Ab ah Ah Ah Ab al 
3 


0 
4 
5 
§ 4 BEGIN 
4 desctasc se. Length) = .namCnam$b re 
§ 4 desc(dsc$a_ g° inter) = .namCnam$l_rsa 
° SIGNAL (set _writeerr, ! Error writing to 
? & Me ! This file 
§ 2 , sets notdir); ! For this reason 
4 3 ELSE 
5 2 BEGIN 
$ 4 | See what qualifiers were set. Build the attribute control bicok 
? } as we go. 
‘ ° ptr = 0; ! Nothing on control block 
; 4 
& 


If .setfile$flagsCqual_vrsn) 
THEN 


mm a ee — 


——$—————$—$——— Sens tee — - 
Be Se Be Be Be Se Be Se Ge Se Se Se Se Se Be Se SHS, Ge Se Se Ge Se Se Ge Se SSeS Fe oe Be Se Se Se Se Se Ge SH Se Se Ss Se Se Se Ss Se Se Se Se Se Se Se Se Se Geese 


9 
9 
9 
9% 
95 
96 


wvuvuvvU 


vuvuv 


DWONOUE WO 


SSO 
MEW —OOOVNOUS who 


> 


Dwele al ah ah ah ab ab db bh db bh db hh hh Ab bbb Sb ab 4b 4b 4b Ob Ab Ob Oh Ah Ah Ab Ah Ah Ah Ah Ah Ah Ah ah ah ah Ah Ah Ah Ah ah ah Ah Ah Ah Ah ah dh da al 


nt 
16-Sep-1984 
10-85-1964 


BEGIN 


' 
Change the version Limit for the directory 


atr[O,atr$w_type) = atr$c_recattr; 
atrlO,atr$w_size] = atr$s_recattr; 
atrlO,atr$l-addr) = regattr: 
recattr(fatSw versions) = .vrsn_value; 
ptr = .ptr + 7; 


if sett ilestlagsCqual owner) 
BEGIN 
Change the owner uic 
atr({.ptr,atr$w_type) = atr$c_uic; 
strtptr-atrey-s ee) = atr$s_uic; 


atrL.ptr,atr$l_addrj = uic_value; 
oo & ptr + 1; 


IF .ptr NEQ 0 
THEN 


] 

Deassign the channel 

IF NOT (status = SDASSGN(CHAN = .channel)) 
THEN file_error(set$_closeerr, .status, .fab); 


RETURN true; 
END; 


19:09:06 


! Update the pointer 


! Update the pointer 


Look to see if the pointer has been changed. If yes, modify the header. 


BEGIN 
atr(.ptr.0,0,32,0) = 0; ' Put a zero at end of List 
status = $010W( CHAN = channel ! Make the modifications 
FUNC = 10$ MODIFY, 
10SB = iosb, 
Pl = desc, 
P5 = atr); 
IF .status THEN status = .iosb(0); ; 
IF NOT .status ! If the modify failed, tell user 
inee file_error(set$_writeerr,.status,. fab) 
IF ott tlogflogsCqual Log} ! If /LOG, tell user 
THEN SIGNAL (set$_modified,1,dir_desc); 
SQJOW(CHAN = .channe ! Deaccess the file 
FUNC = jos DEACCESS, 
10S8 = iosb, 
Pl = desc); 
END; ! End of header modify 
END; ! End of qualifier scan 


AX-11 Bliss- 7 
CLIUTL.SRCJSETDIR.632; 


| yt | 
4 9:34 AX-11 Bliss-32 V4.0-74 P 9 
‘¥O4~000 1e-888-1982 93:85:06 | eeu SRE Tse fain: b3004 me? 
| <PSECT S$PLITS,NOWRT,NOEXE,2 
| 0 30 00074 P.AAL: .ASCII \000000\<0><0> P | 
‘ 46E SB 20 3F 53 41 9 $8 38 es 3 8 6s f p f P.AAN: .ASCII \Modify !AS? (NJ: \<0><0><0> ; 
10€0011 P.AAM: .LONG 17694737 : : 
| Boooo000" 00% “ADDRESS P.AAN ; | 
EXTRN SYSSASSIGN, SYS$O10W ; 
| “EXTRN SYSSDASSG 
| -PSECT $CODES,NOWRT,2 | 
FF T_ATTRIBUTES: 
hichmanenes. OUR Save R2,R3,R4,R5,R6,R7,RB,RO,R1I0,R11 : 0363, 
58 0006 00 9E 000 MOVAB SYS$Q10W Rit : | 
A 0006 9E 000 MOVAB LIBSSIGNAL F 
9 0006 00 9 00010 MOVAB SETFILESFLAGS,. ay ; | 
CAB «OCE C9 1 MOVAB =856(SP), SP : 
: 04 A 06 001 MOVL FAB, RB > 0392 
6 8 D 99 MOVL  40(R8), R6 : 
03 69 91 & 0024 BBC #1, SETFILESFLAGS, 1$ + 0394 
023 31 00028 BRW 19$ F 
50 03 As 9a 00028 1$: MOV ZBL 3(R6), RO + 0400 
FED8 CD 86 50 28 0002F OVC3 RO, a4(R6), STRING ; 
DC AD FEDS CD 9E 000 OVAB TRING. DIR_DESC+4 + 0403 
AD A6 9B 00 C MOVZBW 3(R6), DIR_DESC > 0404 
0 % A6 9A 00041 MOVZ2BL 57(R65, RO” + 0409 
HS ae he at Bi | 
1 38 As A 0004 MOVZBL 59(R6), R1 + 0410 
3} 5 60 0056 ADDL2 RO, R1 F 
FED8 CD41 FED7 CD40 0 004 MOVE STRING-1C(ROJ, STRINGCR1) ; 
wool AA See HME Hieeet MUN Ogee Ble 
pC «sa 3 AD 00000000' €éF ‘ 39 i) MAT CHC as: P, hae! BIR_DESC, @DIR_DESC+4 ; $425 
D 7 VL #6, R : 
33 2 o 77 2%: SUBL2 #3 R ; 
5 DE 007A MOVAL -(R3), STATUS ; | 
18 ; 7D BE QL 3$ 3 
50 pc AD 5 7F SUAL 3 STATUS pi Estes. RO > 0429 | 
5 3 0429) 
1 p8 AD MOVZWL ie : 
2 ee : 
7 b 8 c MOVL oar > 0430 
| 67 o7 A Q 9 moves RO. 7 ths) «(status : 0431 | 
D8 AD 07 A 96 SUBW 7] 5 $2 $ 
6 D8 AD i 9A 3S: MOVAB DIR pest” esc 3 O44 
| 00000000" ef $F bb0RD PUSHAB > AAM : 440 
Hf a ie 
| e 
00000000" EF 9F OOOAA PUSHAB CONTEXT > 0438 


2 


SETDIR 16-Sep-19 59:34 AX-11 Bliss-32 V4.0-742 
ie eb00 12-808-1 382 90:39:06 CLIUTL.SRCISETDIR.B32: 1 
000000006 99 F 980 CALLS #5, LIBSQUAL_FILE_MATCH 
iF 4 SBA BLBS STATUS, 6$ 
000000006 8F f ? O08D beer TATUS, #LIBS_FILFAIMAT 
000000006 8F ; D1 000C6 CMPL STATUS, #LIBS$_QUIPRO 
g fF O9CD BNEQ 4 
69 88 OOOCF BISB2 #2, SETFILESFLAGS 
9 11 00002 BRB 5 
DD 000D4 4$: PUSHL STATUS 
6A oi Fe 00 CALLS #1, LIBSSIGNAL 
018D 009 5$: BRW 19$ 
EO AD 39 Ab O0DC 6$: MOVZBW 57(R6), DESC 
E46 AD 446 p0 00E1 MOVL  68(R6), DESC+4 
7E 7C OOES CLRO = = (SP) 
OC AE OF QO0E PUSHAB CHANNEL 
EO AD 9F OOOEB PUSHAB 
000000006 90 04 FB OOOEE CALLS #4, SYSSASSIGN 
7 50 D OO0F MOVL RO, STATUS 
08 57 Es 00F8 BLBS STATUS, 7$ 
7E 57 7D OOF MOVa STATUS -(SP) 
0077109A 8F DD OOOFE PUSHL #7803034 
69 11 00104 BRB 9$ 
EO AD 20 B80 00106 7S: MOVW #32, DESC 
E46 AD FEB8 (CD 9E OO10A MOV FIB, DESC+4 
20 00 6E 600 2C€ 00110 MOVCS #0, (SP), #0, #32. FIB 
FEBB CD 00115 
FEBB CD 0501 8F 3C 00118 MOVZWL #1281, FIB 
FEBC CD 4 Ab DO OO11F MOVL 36(R65, FIB+4 
FECO CD 8 Ad BO 00125 MOVW 40(R6). FIB+8 
E8 AD O00A0200 8F DO 001 : MOVL #655878, ATR 
EC AD 10 AE 9E 001 MOV HEADER, ATR+4 
FO AD D4 001 CLRL ATR+8 
7E b4 001 CLRL = = ( SP) 
E8 AD 9F 001 PUSHAB ATR 
7E 7C 00140 CLRQ = = (SP) 
7E D4 00142 CLRL = = (SP) 
EO AD 9F 00144 PUSHAB DESC 
7E 7C 00147 LRQ 0 =(SP) 
28 AE 9F 00149 PUSHAB 10SB 
7E BF 9A 0014C MOVZBL #114, =(SP) 
7E 2€ AE 3C 00150 MCVZWL CHANNEL, -(SP) 
7E D4 00154 CLRL = (SP) 
68 oc FB 01 : CALLS #12, SYS$QIOW 
dO 001 MOVL RO, STATUS 
07 57 £9 01 C BL STATUS, 8$ 
7 08 AE C 0015F MOVZ2WL 10SB, STATUS 
Oc 8 0163 BLBS STATUS, 10$ 
7E 7 D 00166 8$: MOVa STATUS, -(SP) 
000000006 8F DD 00169 PUSHL #SET$_READERR 
OOFO 31 O16f 9$: BRW 
02 17 AE 9100172 10$:  CMPB  HEADER+7, #2 
36 18 176 BNEQ 118 
21 45 AE 17 § #5, HEADER+5S3, 11% 
EO AD 03 Ab 17D MOVZBW 3(R6), DESC 
£4 AD 04 A6 D 0182 VL  4(R6); DESC+4 
000000006 8F DD 001 PUSHL &#SET$’NOTDIR 


an 


| 2 
SETDIR 1b-sep-1 4 00:59:34 AX-11 Bliss-32 V4.0-74 Pa 1 
35-500 1 matt 1 90:39:06 CLIUTL.SRC SEs \R 93004 - (3) 
EO AD 9F 001 PUSHAB DESC : 
1 DD 001 PUSHL @ : 
000000006 8F DD 0019 PUSHL #SETS$_WRITEERR : 
A 4 re 19 CALLS #4, LIBSSIGNAL : 
OOAA 198 BRW 17§ + 0513 
17 69 be Fi OOIAD bbc’ ok” sevesceseuacs. 128 : b3a5 
E8 AD 000460020 8F DO 001A4 MOV, #262196, ATR : : 082 
EC D . @ : O1AC MOVAB RECATTR. ATR+4 + 0541 
42 AE 000000006 g 80 iB move VRSN_VALUE, RECATTR+30 : O54¢ 
18 69 0 5 0188 12$: BBC 3 SETFILESFLAGS, 13$ : 0946, 
EA ADO 7F 001BF PUSHAQ ATR+2EPTR : 0552. 
9E 15 BO 001C3 MOVW #21 a SP)+ : 
E8 ADGO 7F 00106 PUSHAQ ATREPTR : 0553 
9E 4 oy OO1CA MOVW 86 #4, a@(SP)+ : 
FC AD4O 7F 901 cD PUSHAQ ATR+4(PTRI + 0554 
9E 000000006 90 9E 00101 MOVAB UIC_VALUE, a(SP)+ : 
0 06 00108 INCL PTR + 0555 
6C 13 OO1DA 138 BEQL 17 : 0561 
£8 AD4O 7F Bp Oe PUSHAQ ATR(PTR] ; 0564 
9E D4 001E0 CLAL a(SP)+¢ 3 
7E 04 OO1E2 RL =( SP) + 0569 
E8 AD SF OO1E4 PUSHAB ATR : 
7E 7C OO1E7 CLRQ 0 = (SP) : 
7E D4 OO1E9 CLRL = = ( SP) : 
EO AD 9F OO1EB PUSHAB DESC ; 
7E 7C OO1EE CLRQ 9 = (SP) : 
28 «AE OOF 001F0 PUSHAB 10SB ; 
te pp O1F PUSHL #54 : 
7E 2c AE C OO1F MOVZWL CHANNEL, -(SP) . 
7E 04 001F9 CLRL = = ( SP) : 
4) 0c FB 001FB CALLS #12, SYS$QI1OW 3 
57 50 DO OO1FE MOVL RO, STATUS ; 
07 5 4 90201 LBC STATUS, 14$ : 0570. 
57 08 Ag C 00204 MOVZ2WL 10SB, STATUS : 
12 8 00208 BLBS TATUS, 15$ > 0571. 
7E 7 7D 00208 14$: mOVQ STATUS. -<(SP) : 0572. 
000000006 BF DD 0020E PUSHL #SET$_WRITEERR F | 
000000006 00 if FB 0 14 CALLS #3, FILE_ERROR ; | 
OE 69 0 fl 021D 15$: BBC #2, SETFILESFLAGS, 16$ > 0574 
D8 AD SF 00221 PUSHAB DIR_DESC : 0575 
1 DD 00224 PUSHL #1 : 
000000006 18F DD 00226 PUSHL aseTS MODIFIED : 
6A 93 FB 0022C CALLS #3, LIBSSIGNAL 3 
E 7C OO0oF 16%: CLROQ -<§P) : 0579 
7E 7C 00231 CLRQ = (SP) ; 
7E D4 00 3 CLRL = (SP) : 
EO AD 9F 00 PUSHAB DESC ; 
7E 7¢ 00 CLRO 0 = (SP) ; 
28 AE OF O023A PUSHAB 1088 : 
34 pd 00 4 PUSHL # 3 
2c (AE OC 0 F MOVZWL CHANNEL, -(SP) : 
7E 04 43 CLRL 5{ ; 
OC FB 0024 CALLS #12, SYSSQI10W ; 
04 AE 3C 00248 17% MOVZWL CHANNEL, -(SP) ; 0585 


Rae 
HERSHEY 


7 
-Sep-1 CLIUTL.SRCJSETDIR.B32; 

1 Ff 46 CALLS #1, SYSSDASSGN F 
9 D MOVL RO STATUS « ; 

E $ BLBS STATUS, 1 : 
7 7D mv STATUS, =(SP) 3 0586 
F DD 0025 PUSHL #SETS_CLOSEERR F 
3 FB 00262 188: CALLS #3, FILE_ERROR : 
1 D0 00269 19$: mov. #1, RO : 0589 

04 0026C RET ; 0590 


; Routine Size: 621 bytes, Routine Base: SCODES + 0162 | 


2 
16-Sep-1984 90:38: 36 AX-11 Blis see rte cee Page i 
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14-Sep-19 CLIUTL.SRCIJSETDIR.B32; 
3 91 1 ROUTINE get_dir (dir_desc) = 
; 238 $3 ks get. J 
5 ra 94 1! This routine is called to get each directory spec from the command Line. 
3 one 95 } } When there are no more directories, a value of FALSE is returned. 
; 604 299 1 !<< 
; 605 238 BEGIN 
3; © 5 
3 60 90 MAP dir_desc : REF SBBLOCK; 
; 608 1 
; 609 oe LOCAL 
; 610 0 desc : SBBLOCK(dsc$c_s_bin], ! General descriptor 
; 611 04 endchar : BYTE, ! End-of-directory character 
; olg 0605 eos, ! End of spring 
; 61 06 ptr, ! Pointer in string 
3 614 060 str_ptr, ! Pointer to rest of string 
; 615 0608 str_len, : hength of rest of age : 
5 eig s¢t4 constr tng : VECTORECnam$c_maxrss,BYTE), ! The temporary string 
; 618 0611 status; 
; 619 Bole 
; o30 061 IF .setfile$flagsCqual_quit] 
; 621 0614 THEN RETURN false; 
; Ose 0615 
3; 6 0616 : 
> 6246 0617 ! Check here to see if a trailing ellipse is being treated. If so, 
; 625 0618 : then FILE_FABCFABSL_CTX] will be set to TRUE, and there's no need 
: 626 0619 ! to search and see if such a trailing ellipse is present. However, 
; os? Bese } if the value is set to FALSE, then get a new directory spec. 
3 69) 06 ¢ If NOT .file_fablfab$l_ctx] ! If not processing an ellipse 
. © 06 THEN ! then get the next directory 
; $3) 0624 BEGIN 
; 66 . 0625 IF NOT cli$get_value(ZASCID ‘DIRECTORY’, .dir_desc) 
: 637 boce THEN RETURN false; 
3; 635 0628 file_fab(fab$l_fna] = .dir_desc(dsc$a_pointer); 
; 636 0629 file_fablfab$b_fns] = .dir_descldsc$w_lengthj; 
; 637 0630 
: 638 0631 1 7 
; +44 st) : Since this is a new entry, it must be checked for a trailing ellipse. 
3 661 pees CHSMOVE( .dir_desc(dsc$w_length] ! Move this many chars 
; o*6 0635 .dir-desc(dsc$a_pointers, | From the CLI area 
: 646 BOs6 temp_string); ! To the temp string 
3 664 063 str_ptr = temp_string: ! Set up pointer 
; 645 0638 strlen = .dir_descl(dsc$w_length]; ! and length. 
3 oe ee4 : 
3 of! ? : Look for ellipses. 
; 4 Osee ms NOT CHSFAIL(temp = CHSFIND_SUB(.str_len, .str_ptr, 3, UPLIT('...°))) 
; 651 Bee 4 BEGIN ; 
3 636 5 4 str_ptr = .temp + 3; ! Update pginter 
; ROS6 4 str_len = .str_len = (.temp - .str_ptr) - 3; 
3 654 0647 3 END; 


v64~000 Jeert94e QB:GB:3S YMG UH UieseBeaté- Os 


After the send ecrtens sur — see if it is at the end of the 


AAAAO 
DONO 


ile“nam{nam$b_type) NEQ 1 OR 
THEN” “file” “naminam$b_ver) NEQ 1 ) 


grt este length] = .file_fab(fab$b_fns); 
desc(dsc$a_ pointer] = .filé_fablfab$T_ tnai; 
SIGNAL _STOP(set$ _syntax 

1, desc, ss$ _badirectory); 


3 directory specification. then csenge the context field of 

; the fab, and insert an end pa h. at the beginning of the ellipse. 

; 660 4 IF (.str_ptr EQL temp_string + .file.fablfab$b_fns] -1) 

: 661 oe ee ee see gts - - 

3 006 5 4 BEGIN 

; 66 2$ 4 ihe febt fabst ctx] = true; ! Show that there's a fret} ing ellipse 
> 664 57 4 .-Sstr_ptr .str_ptr - 3); i Put the end bracket in plac 
; 665 28 G file. fab fab$i- {naj = temp_string: ! Set up FAB fields 

i 666 5 file-fablfab$b_fnsJ = .striptr - 8 = temp_string + 1; 

; gee 1 END _— 

; 069 Ose : 

; 670 066 : If here, then the trailing ellipse has been processed, and this is the 

; 67) see: } second time thru. Restore the original file name. 

3 £78 3008 ELSE 

: 674 066 BEG! 

; 675 0668 file_fab{fab$l_fna] = “Gir _desc(dsc$a_ pointerd: ! Original filename 
; 676 +e} file_fablfab$b_fns] = se r_descldsc$w_ Rengthi: : Br igunet Length 

; 677 70 file fabCfab$i-ctx] = false; Ellipse processed 
3; 678 0671 END;~ 

; 679 pore 

; 680 067 ' 

; 681 0674 ! Parse the input Lip 

3 ore 0675 : 

; 68 pore SNAM_INIT (NAM = file ! Re-init the RLF 

> 684 067 IF (J file_nam(nam$b_ Seu) "iio 0) ! If a device was 

; 685 0678 THEN ! specified, then 

; 686 0679 BEGIN 

; 687 0680 file_fab{fab$l_dna]) = te-nant nang dev); ! Make device sticky 
: os ord file! fablfab$b_dns] = namLnam$b_dev); 

: 690 068 é IF NOT istatus = SPARSE(FAB = Sp aaR 

; 691 0684 soma 

3 O94 0685 

3; FF 0686 gecterte length] = .file_fabl[fab$b_fns); 

> 694 0687 desc(dsc$a_pointer] = .filé_fablfabST_fnad; 

: 695 0688 SIGNAL_STOP(set$_syntax, 

; 696 0689 1, désc, .status); 

: 697 0690 END; 

3 one 4 ; 

3 700 Benz : Check the parsed string for legality, i.e. nothing after the directory 

; 4 95 ir (.file_nam[nam$b_name] NEQ 0 OR 

3 2 
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ES SS 


2 

Eee} Q058:85 HGH SLMeHaP¥atd- 8504 
Check if a search List is used. If so SIGNAL, as search Lists are not 
! allowed (for devices) in this application. 
file. nam(nam$v_search_list] 
SIGNAL _STOP(set$_filspcsrch, 1, .dir_desc, set$_nosrchist); 
Determine what the directory terminator character was, and save it. 
endchar = .(.file_nam[nam$l_dir] + .file_nam{[nam$b_dir] - 1); 


i The directory string must now be analyzed and manipulated so that the 
final directory entry becomes a file. First, initialize some pointers. 


Gooch decdu_tongeh) = .file_nam(nam$b_esl] - 2; 
desc(dsc$a_pointer] = .filé_nam{nam$T_esa); 
str_ptr = .desc gocta_pornter 23 

strlen = .descldsc$w_ 


ptr = 0; 

eos = .desc(dsc$a_pointer] + .desc(dsc$w_length] -1; 
' 

Look for wildcard ellipses 


WHILE NOT CHSFAIL(temp = CHSFIND_SUB(.str_len, .str_ptr, 3, uplit(’..."))) 
BEGIN 


i Make PTR point to the beginning of the ‘'...°', and advance the string 
: pointer to the character just past the “’... 


se 
3 


! 
If . 
THEN 
' 
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8 tr = .temp; 
746 35 Str_len = estr_ten - (,temp - .str_ptr) -3; 
747 40 str_ptr = .temp + 3; 
748 741 END; 
749 rg 
750 74 : . 
je} me : If there was any occurrence of **..."", point just past it. 
75 746 IF .ptr NEQ 0 THEN ptr = .ptr + 3; 
754 74? 4 
755 748 : 
£36 44 : Find the Last directory in the specification 
38 4} WHILE NOT CHSFAIL( temp = CHSFIND_CH(.str_len, .str_ptr, *.")) 
760 rg BEGIN 
761 754 ‘ A 
166 755 ! Make PTR point to the “’."", and advance the string pointer to 
76 228 ! the first character after the ‘*.’ 
764 75 : 
765 738 ptr = .temp; 
766 75 str_len = .str_len = (.temp - .str_ptr) - 1; 
76 760 str_ptr = .temp + 1; 
768 761 END; 


Be eo eae ee et ee epee aad 
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s - .str_ptr; 
CHSQCHAR_A(.endchar, ptr); 
ger = .ptr + .str_len; 

ND; ! end of Cmain.sub] processing 


END ! End of non-zero pointer stuff 


If the pointer si still zero, then there is either a wildcard, a main 
directory or a g.m4 directory. In all such cases, a main directory 
of 6) must be fabricated. 


status = CHSFIND_CH(.str_len, .str_ptr, °,"); ! Save for later 


Move the string out seven spaces and insert "000000" 


ete ptr © edoneldecSa_pointer? + tile nea(nenso dey), 1; 
= eos - .Str_ptr r_ptr, .str_ptr : 
str ptr = CHSMOVE(G, UPLITT® 000000") 7" ; 
CHSMOVE(1, endchar, .str_ptr); 


i Jf no comma was found, then all that is required is to update the 


> «Sstr_ptr); 


: 758 re F .ptr NEO 0 

: -ptr 

: HT) , thei tn 

; ing roe 3 | 

; 776 76 : If here, then either a trailing ellipse, or a final sub-directory 
>; 775 yes : was specified. If the pointer is at the bracket, then there is a 
: £78 f 6 } trailing ellipse, in which case only a ‘'*’’ is required. 

; 77 77 "JF ptr EQL .eos 

: HS 77 * atime 

3; 7 773 4 Begin 

3 @ 774 & CHSA_WCHAR(*®', ptr); ' Stick an asterisk after the bracket. 
tae, ¢ 775 & ese = .ptr + 1; ! Adjust the pointer. 

a wet, bs 

: 785 778 4 | If the pointer is inside the bracket, then the last directory name 
: f a4 ? must be moved out of the brackets. 

BB oe aw. 

: 790 07 5 4! 

3 a 4494 2 Check to see if the directory is Cmain.sub] or [main...sub] 

: 79 786 4 IF .ptr EQLU .str_pt 

3; 794 se 4 THEN’ oe ener per 

: 795 788 BEGIN ! Cmain...sub] form 

; 796 0789 str_len = .eos - .ptr; 

3; 797 0790 CHSMOVE(.str_len, .ptr, .ptr+1); 

; 798 0791 CHSWCHAR(.endchar, .ptr); 

: 799 079 ptr = .ptr + .str_len + |; 

; 800 079 ND ! end of Cmain...sub] processing 
: 801 0794 4 

5 B08 184 ; BEGIN ! Cmain.sub] form 

: 97 str_len = .eo 

: ; 
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st 
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H pointer. 
If CHSFAIL(.status) THEN ptr = .temp 
Otherwise, it's a (g.m] directory. Convert it. 


ELSE 
BEGIN 


LOCAL tparse_block : SBBLOCK(tpa$k_length0); : 
CHSFILL(O, tpaSk pongene kporee block); ! 


efine a TPARSE block 


D 
! Zero it. 
_countO; i Fi 


COOCOWOCOCCOCOCOOOOCOCOOCOO 


G2 G2 C9 G2 G2 G2 C262 G9 G2 GB08 C9G9 G2 Go G2 G20 
MEWN "OO OONOUFS WT" O0 


. : ' 

; & 

; a 

H fe 

: 

3 ? tparse_block(tpa$l_countJ = tpa LL in size 
; 0 G tparse_block(tpa$i_stringcnt]) = .eos - .str_ptr; 
: 1 4 tparse_block(tpa$l_stringptr) = .str_ptr + 7; 
3 ¢ IF NOT" (status = LTbStparse(tparse block, 

3 dir_state 

3 4 dirtkeys) 5 

; 845 08 8 4 THEN SIGNAL_STOP(.status) 

; : 9 & ELSE 

H 0840 BEGIN 

3 8 oat) LOCAL t desc : SBBLOCKCdsc$c_s_bin]; 

3 9 ¢ temp_descldsc$w_length] = 6; 

; 850 oae fomp desc dsc$a_pointer] = .str_ptr + 7; 
; 851 844 6 IF NOT (status = SYSSFAO(Sdescriptor('!2(30w)"), 
3 S26 0845 6 temp_desc, 

3 Se 0846 6 temp_desc, 

; 854 0847 6 -group, 

; 855 S983 -member )) 

; 856 pee THEN SIGNAL_STOP(.status) 

; 857 50 ELSE ptr = .str_ptr + 14; 

; 858 0851 4 END; 

3 $23 0826 END; 

; 85 END; 

: 861 0854 ptr = CHSMOVE(4, UPLIT(".DIR'), .ptr); 

3 B6¢ 0855 file_fab tab$b_fns = .ptr - -GescldscSe_gointer); 

; 86 o328 file _fablfab$l_fna] = .desc(dsc$a_pointer); 

; 864 85 

$ +H 0858 RETURN true; 

3 0859 1 END; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


00 00 00 59 52 4F 54 43 45 52 49 46 098 P.AAP: .ASCII WO iOt Lear Veen ceo <o> 
Hse OAS P.AAO: .LONG 17694729 


Ag “ADDRESS P.AAP 
— 2—€ 2E aC P.AAQ: ASCII \...\<0> 
F P-AAR: .ASCII \...\<0> 

00 00 39 30 B4 P.AAS: .ASCII \Og690 \<0><0> 
29 if 1 BC P AAU: ASCII \! (30) \ 
9000 7 O04 P.AAT: .LONG 7 
0° 000C8 “ADDRESS P.AAU 
52 49 44 2E 


OOCC P.AAV: .ASCII \.DIR\ 


Sete te Oe Be Be Se 


2 
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SRMS_PTR= FILE_RLF 
-EXTRN SYSSPARSE 


-PSECT SCODES,NOWRT,2 


OFFC 99 GET_DIR:.WORD Save R2,R3,R4,R5,R6,R7,RB,R9,R10,R11 : 0591 
5 FECS cf 4 MOVAB -316(SP : | 
03 000000006 oth 5 0 , BBC si SETFILESFLAGS, 2$ + 0613. 
5 4 ac Dd 12 2$: MOVL  DIR_DESC, R6 + 0625. 
88 somette ¢9 16 BL BC FILE_FAB*24, 3$ 3 0622 | 
4 pp 90 3$ PUSHL 6 > 0625. 
00000000" EF 9F 000 PUSHAB P.AAO : 
000000006 00 Fe 00 CALLS “2, CLISGET_VALUE : | 
bp E9 0002F BLBC~—E—saRO, ‘1 : 
00000006 00 04 Ab 10 00032 MOVL  4(R6), FILE_FAB+44 3 0628 | 
00906 00 66 90 0003A MOVB. (R6), FILE _FAB+S2 : 06 9) 
34 AE 6 66 28 00041 MOVC3 (R6). @4(R6), TEMP_STRING > 0634 | 
A 34 AE 9E 00047 VAB_ TEMP_STRING, STR_PTR : 0637) 
57 6 90068 MOVZWL (R6)> STR_LEN ; 0638 | 
6A 57 00000000° EF OO4E 4$: AT CHE 3. P.AAQ; STR_LEN, (STR_PTR) ; 0642 | 
53 0 00 0059 MOVL ae R3 ; 
p 005C 5$: DECL R ; 
58 7 : 005€ MOVAW =(R3), TEMP : 
OF 13 00061 BEQL $ ; 
SA 03 AB 9% 90065 MOV (R11), STR_PTR + 0645 
53 3A 58 3 006 SUBL TEMP STR PTR, R3 + 0646 
7 FD A34 E 00 MOV -3(R3)CSTR_LENJ, STR_LEN F | 
DC 11 0007 BRB 43 + 064 
50 000000996 00 9A 00072 6$: MOVZBL FILE_FAB+52, RO : 0653. 
0 AE4O 9E 000 MOVAB TEMP™STRING-1LROJ, RO ; 
50 D1 0007E CMPL STR_PTR, RO : 
C if 0081 BNEG $ ; 
000000006 99 01 p 90 3 MOVL #1, FILE_FAB+24 > 0656 | 
1 FD sOAA O8A MOVAB =3(STR PTR), R : 0657 | 
1 6A 90 O008E MOVB  (STR_PTR), (R1) F | 
000000006 00 4 AE 9E 00091 MOVAB TEMP"STRING, FILE_FAB+44 : 0658 | 
0 4 AE 9E 00099 MOV TEMP STRING, RO : 0659 | 
50 31 0090 SUBL2 R1, RO : | 
000000006 00 01 Q a0 5 RO, #1, FILE_FAB+S2 ; 
1 BRB ay ; 0622 
000000006 04 Ab 9 AA 7$: MOVL  4(R6), FILE_FAB+44 : | 
000000006 00 082 MOVE (R6), FILE FAB+S2 + 0669 | 
000000006 4 CLRL FALE FAB+ ; 9670 | 
0060 8F 00 6E caaseeaaii a C OBF gL MOVCS #0, TSP), #0, #96, SRMS_PTR ; 0676 | 
00000000° €F O92 F B60 000CB MOVW #24578, SRMS_PTR : 
§ 000080 G 9A D4 MOVZBL PILE _NAM+57,"RO > 0677 
00000006 000000006 6 D MOVL FILE_NAM*68, FILE FAB+48 + 0680 
added 88 5 eB MOVE ROS FILE FAGSSS . > 0681 
000000006 9F OOOEF 9S PUSHAB FILE F > 0683 
000000006 00 a F5 CALLS #1, SYSSPARSE ; 
bf 0 D FC MOVL RO. STATUS : 


Kk 2 
TDIR 16-Sep-1 Ax-11 Blis V4.0-74 P 
ep-1 - - ; ) 
$6.2500 14-5 1382 99: 39; 36 CLIUTL. SRC sefple B32 — Bb 
24 fs fF BLB iad : 
FB AD 6 2 BOvieW F igs38, p DESC : 
FC AD amen OA MOVL FILE “FAB DESC +4 : | 
6€ PUSHL 3 9 
AD 1 PUSHAB DES : 
1 1 PUSHL @# ; 
i F 19 PUSHL #7803130 : | 
000000006 1F CALLS #4, LIB$ST ; 
000000006 6 108: iste Fite. +5 ; 0695 | 
01 000000006 CPB agai rt) + 0696 | 
01 000000006 9 CPB FILE. NAM+61, ; 0697 | 
FB AD 0006 40 118: MOV2BW FILE_FAB+52, DESC + 0700) 
FC OAD 00900 G 00 4 MOVL ate FAB+44, DESC +4 : 9701 | 
7E 8 F | 3 MOVZ2WL #2088, -<SP5 + 0702) 
FB OAD PUS DESC : | 
1 3 PUSHL # : | 
007710FA BF A PUSH 7803130 ; | 
000000006 4 69 CALLS #4, LIBSSTOP : 
17 000000006 3 67 12%:  68C #3, LE NAM+53, 13$ + 0709) 
00771352 BF of PUSHL #7803 ; 0711 
6 ; PUSHL $ : 
1 7 PUSHL : 
0077134A 8F 79 PUSHL 803722 : 
000000006 4 7F CALLS #4, LIB$ST : 
0000006 86 13$:  MOVZBL FILE_NAM+58, RO ; 0715) 
og Ae RF SE Uris ABEE Hltnah Meas | 
Fé AD 000000006 oe 99 wovZ WF FILE .NAMSI1, DESC ; 0721) 
FC AD 000000006 AS MOVL rice zliAMet2. DESC +4 ; 0723 | 
9 FC AD AD MOVL DESCE ; 07 
A 59 B1 MOVL R sth rr ; 
Q F8 AD B4 MOVZWL DESC + 0724 
| Bs MOVL 4 ca LEN B aves 
56 FF AOG Bp MOVAB -1(RO)CR9J, EOS : 73 
6A 57 00000000" EF ce 14$: BATCHC #3, P.AAR, STR_LEN, (STR_PTR) : 0731) 
53 ¢ MOVL #3, R3 ; | 
15$: DECL R : 
58 D MOVAW -(R3), TEMP : 
1 D BEQL 16 : | 
53 ; 38 £3 OO1DA suas T R3 : O88 
7 FD asad MOVAB Wie eet LEN], STR_LEN ; | 
SA 0 AB E MOVAB (Rt ), STR_P : 0740 
E BRB 4$ : 0731 | 
£9 16$:  TSTL PTR : 0746 | 
ED arora ase Beers; 
6A 3 0 17$: LOoce #46, STR_LEN, (STR_PTR) : 0751 | 
+ BNEQ 18$ 3 
F6 CLRL sR ; 
5B 1 f8.18$: MOVL 1, TEMP ; 
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nett Bliss-3 Ve On eg 
CLIUTL.SRCJSETDIR.B32; 


19$ 
I MP. P 
it R3 
=iiRsyE hg LEN. STR_LEN 

11), STR_PTR 


DRMDKMDeOD 


ey So ee 


LEN 
, 1CPTR) 
R ets PTR 
R_PTR, EOS STR_LEN 
HAR, (PTR)+ 


ANT DBDeODHONMW 
. 
mm 
oO 
nm 
. 
wn 


ar +l tet 4 


#44, STR_LEN, (STR_PTR) 
238 


ret poy oe pe WV VNS VN UN U—— I - 


‘ STATUS | a 
ROSURSS, “im PTR 

R_PTR RQ 

(STR. Paes, (STR_PTR) 


TEMP 
e AAS 


NOCHAR? 
TATUS 


R1 
FI 
1( 
st 
RS 
r) (STR_PTR) 

R R 

E (STR_PTR) 

TEMP, PTR 

#0, (SP), #0, #36, TPARSE_BLOCK 


#8 TPARSE BLOCK 
STR PTR OS, TPARSE_BLOCK+8 


R3 "Teka BLOCK+12 


15 E 
Hae foe 
tithe 


RO; Star 
. TEMP_D 
* TEMP~D 
MEMBER 


GROUP 
TEMP_DESC 


Esc 
ESC 


a - — — 
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16 AE OF 002C PUSHAB TEMP_DESC ; 

00000006" f 3 cf SHAB  P.AAT : 

000000006 bs F cher #5, SYSSFAO : 
dB R ead : 
é Fl 2s: Puce StAtUs, . t 0849. 
000000006 00 } : i : CALLS HI L1B$STOP : | 
conus Fh Bare aot: fae Eizo are, fs 
000000006 00 3 F "- $uBB3) «sR, PTR, FILE_FAB+52 : 0855 
000000006 D FF MOVL R? FILE _FAB#R4 ; 36 
' be REY sa he 
50 b4 A 29%: CLRL RO + 0859 

4 0030¢ RET : 


; Routine Size: 781 bytes, Routine Base: SCODES + O3CF 


N 2 
1eo$ep-i98e $B:d9:d6 — LeLiuteesneSseto\Rse32+4 


-EXTRN LIBSSIGNAL, LIBSSTOP 


PSECT SUMMARY 
Name Bytes Attributes 
were 10 od nt G RD ,NOEXE,NOSHR, LCL, REL, CON MOREE AL FENCE) 
4 NOVEC,NOWRT, RD, HE SHR, LCL, REL, CON, PIC,ALIGN(1) 
sibs ATES d NOVEC SNOWRT RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
i 17 NOV C{N NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,AL! i$} 
I NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
ecoscess Sysbols ococecee Pages Processing 
File Total Loaded Percent Mapped Time 
$255$DUA28: CSYSLIBILIB.L 3251 18619 109 1000 00:01.7 
mR SEtttNs Syst BI tPaAA AMAC.L32;1 42 18 43 14 00:00.1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:SETDIR/OBJ=OBJ$:SETDIR MSRC$:SETDIR/UPDATE=(ENHS$:SETDIR) 


Size: 1756 code + 324 data bytes 
; Run Time 232.7 
4 Elapsed. Time: i 0 
; Lines/CPU Min: 1581 


S Lone Lexemes/CPU-Min: 25423 


Used: 274 pages 
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